home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
pgm_tool
/
tpnet5
/
pasneta.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-03-04
|
8KB
|
159 lines
{$V-}
UNIT PASNETA;
{
Turbo Pascal 5.0 unit for Novell Netware interface
based on TPNET.ZIP for versions of Turbo Pascal prior to 4.0
Donald M. DeLapp
485 S. Sheridan Ave.
Sheridan, WY 82801
307-674-6841
}
INTERFACE
USES Dos;
{pasneta.pas
this file contains the function and procedure declarations
for the TurboPascal/Advanced NetWare interface}
type
Strvar = String[52];
function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer;
function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer;
function eojstat(var Flag: Integer):integer;
function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen,Flags,TimeOut: Integer): Integer;
function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen: Integer): Integer;
function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen: Integer): Integer;
function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
Flags,TimeOut: Integer): Integer;
function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer;
function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer;
function PRLS_Lck(var Flags,TimeOut: Integer): Integer;
function PRLS_Rel: Integer;
function PRLS_Clr: Integer;
function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer;
function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer;
function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer;
function SigSem(var HiHandle,LoHandle: Integer): Integer;
function ClosSem(var HiHandle,LoHandle: Integer): Integer;
function setlck(var Func: Integer): Integer;
function BakOuts(var Func: Integer): Integer;
function btrans(var Mode: Integer): Integer;
function etrans: Integer;
function exclog(var FcbAddr: Integer): Integer;
function exclcks(var Mode: Integer): Integer;
function exculkf(var FcbAddr: Integer): Integer;
function exculks: Integer;
function excclrf(var FcbAddr: Integer): Integer;
function excclrs: Integer;
function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer;
function reclck(var Mode: Integer): Integer;
function reculk(var Semaphore: Strvar): Integer;
function reculks: Integer;
function recclr(var Semaphore: Strvar): Integer;
function recclrs: Integer;
function eoj: Integer;
function sysout: Integer;
function volstat(var volume: Integer;var reply: Strvar): Integer;
function locdrv:Integer;
function wsid: Integer;
function errmode(var mode: Integer):integer;
function bcsmode(var mode: Integer):integer;
function ctlspl(var Mode: Integer): Integer;
function splreq(var RequestBlock, Reply: Strvar): Integer;
function pipreq(var RequestBlock, Reply: Strvar): Integer;
function dpath(var RequestBlock, Reply: Strvar): Integer;
function syslog(var RequestBlock, Reply: Strvar): Integer;
function fattr(var FcbAddr, Attribute: Integer): Integer;
function updfcb(var FcbAddr: Integer): Integer;
function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer;
function nettod(var time: Strvar):integer;
function clsmode(var mode: Integer):integer;
function drvmap(var drive: Integer): Integer;
function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer;
function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer;
function asculkf(var Asciiz: Strvar): Integer;
function ascclrf(var Asciiz: Strvar): Integer;
function Get_PSN: Integer;
function Get_STA(var Mode,Segment,Offset: Integer):integer;
function SetServ(var Mode,NewServ: Integer): Integer;
function ModServ(var Mode,NewServ: Integer): Integer;
IMPLEMENTATION
{$L PASNETA.OBJ}
function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer; external;
function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer; external;
function eojstat(var Flag: Integer):integer; external;
function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen,Flags,TimeOut: Integer): Integer; external;
function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen: Integer): Integer; external;
function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen: Integer): Integer; external;
function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
Flags,TimeOut: Integer): Integer; external;
function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external;
function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external;
function PRLS_Lck(var Flags,TimeOut: Integer): Integer; external;
function PRLS_Rel: Integer; external;
function PRLS_Clr: Integer; external;
function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer; external;
function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer; external;
function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer; external;
function SigSem(var HiHandle,LoHandle: Integer): Integer; external;
function ClosSem(var HiHandle,LoHandle: Integer): Integer; external;
function setlck(var Func: Integer): Integer; external;
function BakOuts(var Func: Integer): Integer; external;
function btrans(var Mode: Integer): Integer; external;
function etrans: Integer; external;
function exclog(var FcbAddr: Integer): Integer; external;
function exclcks(var Mode: Integer): Integer; external;
function exculkf(var FcbAddr: Integer): Integer; external;
function exculks: Integer; external;
function excclrf(var FcbAddr: Integer): Integer; external;
function excclrs: Integer; external;
function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer; external;
function reclck(var Mode: Integer): Integer; external;
function reculk(var Semaphore: Strvar): Integer; external;
function reculks: Integer; external;
function recclr(var Semaphore: Strvar): Integer; external;
function recclrs: Integer; external;
function eoj: Integer; external;
function sysout: Integer; external;
function volstat(var volume: Integer;var reply: Strvar): Integer; external;
function locdrv:Integer; external;
function wsid: Integer; external;
function errmode(var mode: Integer):integer; external;
function bcsmode(var mode: Integer):integer; external;
function ctlspl(var Mode: Integer): Integer; external;
function splreq(var RequestBlock, Reply: Strvar): Integer; external;
function pipreq(var RequestBlock, Reply: Strvar): Integer; external;
function dpath(var RequestBlock, Reply: Strvar): Integer; external;
function syslog(var RequestBlock, Reply: Strvar): Integer; external;
function fattr(var FcbAddr, Attribute: Integer): Integer; external;
function updfcb(var FcbAddr: Integer): Integer; external;
function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer; external;
function nettod(var time: Strvar):integer; external;
function clsmode(var mode: Integer):integer; external;
function drvmap(var drive: Integer): Integer; external;
function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer; external;
function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer; external;
function asculkf(var Asciiz: Strvar): Integer; external;
function ascclrf(var Asciiz: Strvar): Integer; external;
function Get_PSN: Integer; external;
function Get_STA(var Mode,Segment,Offset: Integer):integer; external;
function SetServ(var Mode,NewServ: Integer): Integer; external;
function ModServ(var Mode,NewServ: Integer): Integer; external;
END.